/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / w3 / url-ns.elc.z / url-ns.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 35 3a 33 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:05:31 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 77 33 2f 75 |s-20.3/l|isp/w3/u|
|000000a0| 72 6c 2d 6e 73 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |rl-ns.el|.;;; ema|
|000000b0| 63 73 20 76 65 72 73 69 | 6f 6e 20 32 30 2e 34 20 |cs versi|on 20.4 |
|000000c0| 22 45 6d 65 72 61 6c 64 | 22 20 58 45 6d 61 63 73 |"Emerald|" XEmacs|
|000000d0| 20 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 |  Lucid.|.;;; byt|
|000000e0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000f0| 32 35 20 58 45 6d 61 63 | 73 3b 20 32 32 2d 4d 61 |25 XEmac|s; 22-Ma|
|00000100| 72 2d 39 36 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |r-96..;;|; optimi|
|00000110| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000120| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000130| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000140| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000150| 6d 61 63 73 20 31 39 2e | 0a 0a 28 69 66 20 28 61 |macs 19.|..(if (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000170| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000180| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000190| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|000001a0| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|000001b0| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|000001c0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001d0| 20 22 32 30 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "20")))|.    (er|
|000001e0| 72 6f 72 20 22 60 75 72 | 6c 2d 6e 73 2e 65 6c 27 |ror "`ur|l-ns.el'|
|000001f0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|00000200| 72 20 45 6d 61 63 73 20 | 32 30 22 29 29 0a 0a 28 |r Emacs |20"))..(|
|00000210| 6f 72 20 28 62 6f 75 6e | 64 70 20 27 63 75 72 72 |or (boun|dp 'curr|
|00000220| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 29 20 28 |ent-load|-list) (|
|00000230| 73 65 74 71 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |setq cur|rent-loa|
|00000240| 64 2d 6c 69 73 74 20 6e | 69 6c 29 29 0a 0a 0a 28 |d-list n|il))...(|
|00000250| 72 65 71 75 69 72 65 20 | 27 75 72 6c 2d 67 77 29 |require |'url-gw)|
|00000260| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 69 73 50 6c |.(defali|as 'isPl|
|00000270| 61 69 6e 48 6f 73 74 4e | 61 6d 65 20 23 5b 28 68 |ainHostN|ame #[(h|
|00000280| 6f 73 74 29 20 22 c0 c1 | 5c 6e 5c 22 3f 87 22 20 |ost) "..|\n\"?." |
|00000290| 5b 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5c |[string-|match "\|
|000002a0| 5c 2e 22 20 68 6f 73 74 | 5d 20 33 5d 29 0a 28 64 |\." host|] 3]).(d|
|000002b0| 65 66 61 6c 69 61 73 20 | 27 64 6e 73 44 6f 6d 61 |efalias |'dnsDoma|
|000002c0| 69 6e 49 73 20 23 5b 28 | 68 6f 73 74 20 64 6f 6d |inIs #[(|host dom|
|000002d0| 29 20 22 c0 c1 5c 6e 21 | c3 50 0c 5c 22 87 22 20 |) "..\n!|.P.\"." |
|000002e0| 5b 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 72 65 |[string-|match re|
|000002f0| 67 65 78 70 2d 71 75 6f | 74 65 20 64 6f 6d 20 22 |gexp-quo|te dom "|
|00000300| 24 22 20 68 6f 73 74 5d | 20 33 5d 29 0a 28 64 65 |$" host]| 3]).(de|
|00000310| 66 61 6c 69 61 73 20 27 | 64 6e 73 52 65 73 6f 6c |falias '|dnsResol|
|00000320| 76 65 20 23 5b 28 68 6f | 73 74 29 20 22 c0 09 21 |ve #[(ho|st) "..!|
|00000330| 87 22 20 5b 75 72 6c 2d | 67 61 74 65 77 61 79 2d |." [url-|gateway-|
|00000340| 6e 73 6c 6f 6f 6b 75 70 | 2d 68 6f 73 74 20 68 6f |nslookup|-host ho|
|00000350| 73 74 5d 20 32 5d 29 0a | 28 64 65 66 61 6c 69 61 |st] 2]).|(defalia|
|00000360| 73 20 27 69 73 52 65 73 | 6f 6c 76 61 62 6c 65 20 |s 'isRes|olvable |
|00000370| 23 5b 28 68 6f 73 74 29 | 20 22 c0 c1 5c 6e 5c 22 |#[(host)| "..\n\"|
|00000380| ab 82 c3 87 5c 6e c4 5c | 6e 21 98 3f 87 22 20 5b |....\n.\|n!.?." [|
|00000390| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5e 5b |string-m|atch "^[|
|000003a0| 30 2d 39 2e 5d 2b 24 22 | 20 68 6f 73 74 20 74 20 |0-9.]+$"| host t |
|000003b0| 75 72 6c 2d 67 61 74 65 | 77 61 79 2d 6e 73 6c 6f |url-gate|way-nslo|
|000003c0| 6f 6b 75 70 2d 68 6f 73 | 74 5d 20 33 5d 29 0a 28 |okup-hos|t] 3]).(|
|000003d0| 64 65 66 61 6c 69 61 73 | 20 27 69 73 49 6e 4e 65 |defalias| 'isInNe|
|000003e0| 74 20 23 5b 28 69 70 20 | 6e 65 74 20 6d 61 73 6b |t #[(ip |net mask|
|000003f0| 29 20 22 c0 09 c2 5c 22 | c0 0b c2 5c 22 c0 0c c2 |) "...\"|...\"...|
|00000400| 5c 22 1d 1e 06 89 1e 07 | 47 0e 06 47 55 3f ae 87 |\"......|G..GU?..|
|00000410| 0e 06 47 0d 47 55 3f 3f | ad e1 c8 c9 0e 07 5c 22 |..G.GU??|......\"|
|00000420| 16 07 c8 c9 0e 06 5c 22 | 16 06 c8 c9 0d 5c 22 15 |......\"|.....\".|
|00000430| ca 0e 07 40 0d 40 5c 22 | ca 0e 06 40 0d 40 5c 22 |...@.@\"|...@.@\"|
|00000440| 55 ad bd ca 0e 07 41 40 | 0d 41 40 5c 22 ca 0e 06 |U.....A@|.A@\"...|
|00000450| 41 40 0d 41 40 5c 22 55 | ad a8 ca cb 0e 07 38 cb |A@.A@\"U|......8.|
|00000460| 0d 38 5c 22 ca cb 0e 06 | 38 cb 0d 38 5c 22 55 ad |.8\"....|8..8\"U.|
|00000470| 93 ca cc 0e 07 38 cc 0d | 38 5c 22 ca cc 0e 06 38 |.....8..|8\"....8|
|00000480| cc 0d 38 5c 22 55 2b 87 | 22 20 5b 73 70 6c 69 74 |..8\"U+.|" [split|
|00000490| 2d 73 74 72 69 6e 67 20 | 69 70 20 22 5c 5c 2e 22 |-string |ip "\\."|
|000004a0| 20 6e 65 74 20 6d 61 73 | 6b 20 6d 61 73 6b 63 20 | net mas|k maskc |
|000004b0| 69 70 63 20 6e 65 74 63 | 20 6d 61 70 63 61 72 20 |ipc netc| mapcar |
|000004c0| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 20 6c 6f |string-t|o-int lo|
|000004d0| 67 61 6e 64 20 32 20 33 | 5d 20 36 5d 29 0a 23 40 |gand 2 3|] 6]).#@|
|000004e0| 32 33 20 49 6e 74 65 72 | 6e 61 6c 2c 20 64 6f 20 |23 Inter|nal, do |
|000004f0| 6e 6f 74 20 75 73 65 2e | 1f 0a 28 64 65 66 76 61 |not use.|..(defva|
|00000500| 72 20 75 72 6c 2d 6e 73 | 2d 75 73 65 72 2d 70 72 |r url-ns|-user-pr|
|00000510| 65 66 73 20 6e 69 6c 20 | 28 23 24 20 2e 20 31 32 |efs nil |(#$ . 12|
|00000520| 35 31 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |51)).(de|falias '|
|00000530| 75 72 6c 2d 6e 73 2d 70 | 72 65 66 73 20 23 5b 28 |url-ns-p|refs #[(|
|00000540| 26 6f 70 74 69 6f 6e 61 | 6c 20 66 69 6c 65 29 20 |&optiona|l file) |
|00000550| 22 08 ac 84 c1 c2 21 10 | c3 08 21 ab 85 c4 08 21 |".....!.|..!....!|
|00000560| ac 85 c5 c6 08 5c 22 87 | 8a c7 c8 1e 09 1e 5c 6e |.....\".|......\n|
|00000570| cb cc cd ce cf 24 16 10 | d1 d2 21 71 88 d3 20 88 |.....$..|..!q.. .|
|00000580| d4 08 21 88 65 62 88 d5 | d6 c7 c8 23 ab 86 d7 d8 |..!.eb..|...#....|
|00000590| 21 88 aa 73 65 62 88 d5 | d9 c7 c8 23 ab 86 d7 da |!..seb..|...#....|
|000005a0| 21 88 aa 73 65 62 88 d5 | db c7 c8 23 ab 86 d7 dc |!..seb..|...#....|
|000005b0| 21 88 aa 73 65 62 88 dd | 20 2b 87 22 20 5b 66 69 |!..seb..| +." [fi|
|000005c0| 6c 65 20 65 78 70 61 6e | 64 2d 66 69 6c 65 2d 6e |le expan|d-file-n|
|000005d0| 61 6d 65 20 22 7e 2f 2e | 6e 65 74 73 63 61 70 65 |ame "~/.|netscape|
|000005e0| 2f 70 72 65 66 65 72 65 | 6e 63 65 73 2e 6a 73 22 |/prefere|nces.js"|
|000005f0| 20 66 69 6c 65 2d 65 78 | 69 73 74 73 2d 70 20 66 | file-ex|ists-p f|
|00000600| 69 6c 65 2d 72 65 61 64 | 61 62 6c 65 2d 70 20 6d |ile-read|able-p m|
|00000610| 65 73 73 61 67 65 20 22 | 43 6f 75 6c 64 20 6e 6f |essage "|Could no|
|00000620| 74 20 6f 70 65 6e 20 25 | 73 20 66 6f 72 20 72 65 |t open %|s for re|
|00000630| 61 64 69 6e 67 22 20 6e | 69 6c 20 74 20 74 72 75 |ading" n|il t tru|
|00000640| 65 20 66 61 6c 73 65 20 | 6d 61 6b 65 2d 68 61 73 |e false |make-has|
|00000650| 68 2d 74 61 62 6c 65 20 | 3a 73 69 7a 65 20 31 33 |h-table |:size 13|
|00000660| 20 3a 74 65 73 74 20 65 | 71 75 61 6c 20 75 72 6c | :test e|qual url|
|00000670| 2d 6e 73 2d 75 73 65 72 | 2d 70 72 65 66 73 20 67 |-ns-user|-prefs g|
|00000680| 65 74 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |et-buffe|r-create|
|00000690| 20 22 20 2a 6e 73 2d 70 | 61 72 73 65 2a 22 20 65 | " *ns-p|arse*" e|
|000006a0| 72 61 73 65 2d 62 75 66 | 66 65 72 20 69 6e 73 65 |rase-buf|fer inse|
|000006b0| 72 74 2d 66 69 6c 65 2d | 63 6f 6e 74 65 6e 74 73 |rt-file-|contents|
|000006c0| 20 72 65 2d 73 65 61 72 | 63 68 2d 66 6f 72 77 61 | re-sear|ch-forwa|
|000006d0| 72 64 20 22 5e 2f 2f 22 | 20 72 65 70 6c 61 63 65 |rd "^//"| replace|
|000006e0| 2d 6d 61 74 63 68 20 22 | 3b 3b 22 20 22 5e 75 73 |-match "|;;" "^us|
|000006f0| 65 72 5f 70 72 65 66 28 | 22 20 22 28 75 72 6c 2d |er_pref(|" "(url-|
|00000700| 6e 73 2d 73 65 74 2d 75 | 73 65 72 2d 70 72 65 66 |ns-set-u|ser-pref|
|00000710| 20 22 20 22 5c 22 2c 22 | 20 22 5c 22 22 20 65 76 | " "\","| "\"" ev|
|00000720| 61 6c 2d 62 75 66 66 65 | 72 5d 20 35 5d 29 0a 28 |al-buffe|r] 5]).(|
|00000730| 64 65 66 61 6c 69 61 73 | 20 27 75 72 6c 2d 6e 73 |defalias| 'url-ns|
|00000740| 2d 73 65 74 2d 75 73 65 | 72 2d 70 72 65 66 20 23 |-set-use|r-pref #|
|00000750| 5b 28 6b 65 79 20 76 61 | 6c 29 20 22 c0 09 5c 6e |[(key va|l) "..\n|
|00000760| 0b 23 87 22 20 5b 63 6c | 2d 70 75 74 68 61 73 68 |.#." [cl|-puthash|
|00000770| 20 6b 65 79 20 76 61 6c | 20 75 72 6c 2d 6e 73 2d | key val| url-ns-|
|00000780| 75 73 65 72 2d 70 72 65 | 66 73 5d 20 34 5d 29 0a |user-pre|fs] 4]).|
|00000790| 28 64 65 66 61 6c 69 61 | 73 20 27 75 72 6c 2d 6e |(defalia|s 'url-n|
|000007a0| 73 2d 75 73 65 72 2d 70 | 72 65 66 20 23 5b 28 6b |s-user-p|ref #[(k|
|000007b0| 65 79 20 26 6f 70 74 69 | 6f 6e 61 6c 20 64 65 66 |ey &opti|onal def|
|000007c0| 61 75 6c 74 29 20 22 c0 | 09 5c 6e 0b 23 87 22 20 |ault) ".|.\n.#." |
|000007d0| 5b 63 6c 2d 67 65 74 68 | 61 73 68 20 6b 65 79 20 |[cl-geth|ash key |
|000007e0| 75 72 6c 2d 6e 73 2d 75 | 73 65 72 2d 70 72 65 66 |url-ns-u|ser-pref|
|000007f0| 73 20 64 65 66 61 75 6c | 74 5d 20 34 5d 29 0a 28 |s defaul|t] 4]).(|
|00000800| 70 72 6f 76 69 64 65 20 | 27 75 72 6c 2d 6e 73 29 |provide |'url-ns)|
|00000810| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+